Входные данные
Даны четыре целых числа – координаты концов отрезка (x1, y1) и (x2, y2). Каждая из координат не превышает по абсолютной величине значения 1000.
Выходные данные
Требуется вывести количество точек отрезка, имеющих целочисленные координаты.
var
x1, y1, x2, y2, x, k: integer;
begin
readln(x1, y1, x2, y2);
if x1 = x2 then
begin
x := x1;
x1 := y1;
y1 := x;
x := x2;
x2 := y2;
y2 := x
end;
if x1 > x2 then
begin
x := x1;
x1 := x2;
x2 := x;
x := y1;
y1 := y2;
y2 := x
end;
for x := x1 + 1 to x2 do
if (x - x1) * (y2 - y1) mod (x2 - x1) = 0 then inc(k);
writeln(k + 1)
end.
Программа на onlinedgb
Похожие записи/страницы:
- В файле хранится массив отрезков (отрезок на плоскости задается координатами начала и конца). Составить функции…
- Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат -…
- В файле задать последовательность точек с координатами x и y . Количество наборов любое. Вводится произвольная…
- Определение пересечение двух отрезков - Pascal(Паскаль)
- Заданы координаты двух точек на плоскости. Составьте программу, определяющую, какая из точек удалена от начала…
- Дан массив X с координатами X точек координатной плоскости и массив Y с координатами y точек в координатной…
- Даны действительные числа x1,y1,x2,y2,x3,y3. Выяснить, сколько общих точек имеют треугольник с координатами…
- Определить, пересекаются ли окружности, в этом случае вычислить координаты точек их пересечения Pascal(Паскаль)